home *** CD-ROM | disk | FTP | other *** search
/ How To Lose A Guy In 10 Days Press Kit / How to Lose a Guy in 10 Days Press Kit.iso / pc / Program.dxr / New Save Image Cast_76_Megabyte Counter.ls < prev    next >
Encoding:
Text File  |  2003-01-17  |  3.4 KB  |  120 lines
  1. global gIM01, gIM02, gIM03, gIM04, gIM05, gIM06, gIM07, gIM08, gIM09, gIM10, gIM11, gIM12, gIM13, gIM14, gIM15, gIM16, gIM17, gIM18, gIM19, gIM20, gIM21, gIM22, gIM23, gIM24, gIM25, gIM26, gImages, gMegs
  2.  
  3. on enterFrame me
  4.   gImages = 0
  5.   gMegs = 0
  6.   if gIM01 = 1 then
  7.     gImages = gImages + 1
  8.     gMegs = gMegs + 27.80000000000000071
  9.   end if
  10.   if gIM02 = 1 then
  11.     gImages = gImages + 1
  12.     gMegs = gMegs + 24.30000000000000071
  13.   end if
  14.   if gIM03 = 1 then
  15.     gImages = gImages + 1
  16.     gMegs = gMegs + 26.5
  17.   end if
  18.   if gIM04 = 1 then
  19.     gImages = gImages + 1
  20.     gMegs = gMegs + 23.89999999999999858
  21.   end if
  22.   if gIM05 = 1 then
  23.     gImages = gImages + 1
  24.     gMegs = gMegs + 23
  25.   end if
  26.   if gIM06 = 1 then
  27.     gImages = gImages + 1
  28.     gMegs = gMegs + 24.30000000000000071
  29.   end if
  30.   if gIM07 = 1 then
  31.     gImages = gImages + 1
  32.     gMegs = gMegs + 22.5
  33.   end if
  34.   if gIM08 = 1 then
  35.     gImages = gImages + 1
  36.     gMegs = gMegs + 23.80000000000000071
  37.   end if
  38.   if gIM09 = 1 then
  39.     gImages = gImages + 1
  40.     gMegs = gMegs + 22.30000000000000071
  41.   end if
  42.   if gIM10 = 1 then
  43.     gImages = gImages + 1
  44.     gMegs = gMegs + 25.10000000000000142
  45.   end if
  46.   if gIM11 = 1 then
  47.     gImages = gImages + 1
  48.     gMegs = gMegs + 25.39999999999999858
  49.   end if
  50.   if gIM12 = 1 then
  51.     gImages = gImages + 1
  52.     gMegs = gMegs + 23
  53.   end if
  54.   if gIM13 = 1 then
  55.     gImages = gImages + 1
  56.     gMegs = gMegs + 26.19999999999999929
  57.   end if
  58.   if gIM14 = 1 then
  59.     gImages = gImages + 1
  60.     gMegs = gMegs + 24.5
  61.   end if
  62.   if gIM15 = 1 then
  63.     gImages = gImages + 1
  64.     gMegs = gMegs + 24.5
  65.   end if
  66.   if gIM16 = 1 then
  67.     gImages = gImages + 1
  68.     gMegs = gMegs + 19.89999999999999858
  69.   end if
  70.   if gIM17 = 1 then
  71.     gImages = gImages + 1
  72.     gMegs = gMegs + 25.10000000000000142
  73.   end if
  74.   if gIM18 = 1 then
  75.     gImages = gImages + 1
  76.     gMegs = gMegs + 24.89999999999999858
  77.   end if
  78.   if gIM19 = 1 then
  79.     gImages = gImages + 1
  80.     gMegs = gMegs + 22.80000000000000071
  81.   end if
  82.   if gIM20 = 1 then
  83.     gImages = gImages + 1
  84.     gMegs = gMegs + 26.30000000000000071
  85.   end if
  86.   if gIM21 = 1 then
  87.     gImages = gImages + 1
  88.     gMegs = gMegs + 24.10000000000000142
  89.   end if
  90.   if gIM22 = 1 then
  91.     gImages = gImages + 1
  92.     gMegs = gMegs + 20.10000000000000142
  93.   end if
  94.   if gIM23 = 1 then
  95.     gImages = gImages + 1
  96.     gMegs = gMegs + 20.60000000000000142
  97.   end if
  98.   if gIM24 = 1 then
  99.     gImages = gImages + 1
  100.     gMegs = gMegs + 18
  101.   end if
  102.   if gIM25 = 1 then
  103.     gImages = gImages + 1
  104.     gMegs = gMegs + 17.30000000000000071
  105.   end if
  106.   if gIM26 = 1 then
  107.     gImages = gImages + 1
  108.     gMegs = gMegs + 17.30000000000000071
  109.   end if
  110.   if gImages = 1 then
  111.     put "You have selected " & gImages & " image, which will take up approximately " & integer(gMegs) & " Megabytes of space on your hard drive." & RETURN & RETURN & "By default, a folder named 'How To Lose A Guy Images' will be created on your desktop." & RETURN & RETURN & "If you would like to change the location of this folder, select the 'Change Folder Location' text below." into member "Save Text"
  112.   else
  113.     put "You have selected " & gImages & " images, which will take up approximately " & integer(gMegs) & " Megabytes of space on your hard drive." & RETURN & RETURN & "By default, a folder named 'How To Lose A Guy Images' will be created on your desktop." & RETURN & RETURN & "If you would like to change the location of this folder, select the 'Change Folder Location' text below." into member "Save Text"
  114.   end if
  115. end
  116.  
  117. on exitFrame
  118.   go(the frame)
  119. end
  120.